perm filename FR81.PUB[S81,JMC] blob
sn#581741 filedate 1981-04-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00006 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .device XGP
C00004 00003
C00005 00004 .insert contents
C00006 00005 .<< Contents >>
C00007 00006 .BEGIN "Title"
C00008 ENDMK
C⊗;
.device XGP;
.require "bask.pub[sub,sys]" source_file;
.font 5 "grfx25";
.font A "ms25"
.sides←1;
.require "twocol.pub[sub,sys]" source_file;
.macro sskip ⊂ skip to column 1⊃; << section skip control >>
.
.MACRO YON(LBL) ⊂ "Section "; SUB2! LBL ⊃;
.
.MACRO SUB(IND) ⊂ INDENT 0,IND; TABS IND+1;⊃
.
.MACRO IB ⊂ turn on "%";
.AT """" ⊂ (IF THISFONT=1 THEN "%3" ELSE "%1"); ⊃
.AT "<" ⊂ "%2" ⊃; AT ">" ⊂ "%1" ⊃;
. ⊃
.MACRO BIB ⊂
. BEGIN INDENT 0,3; NOJUST; IB;
. AT "AIM-" ⊂ "Stanford AI Memo AαIαMα-" ⊃;
. COUNT exref TO 200
. AT "⊗" ⊂ IF LINES<3 THEN NEXT COLUMN; NEXT EXREF; ("["&EXREF&"] ") ⊃
. ⊃;
.at "//pers"; ⊂ once fill nojust; indent 0,5; ib; turn on "#";
. at "sra" ⊂ "%2Student Research Assistants:%1" ⊃
. ("%3Personnel: %1");
. ⊃;
.
.recursive MACRO GET(FILE) ⊂ BEGIN "FILE"
.REQUIRE "FILE" SOURCE;
.END "FILE"
. ⊃
.SECNAME←"";
.count page from 1 to 999
.fill
.insert contents;
.portion some; place text;
.next page; next page;
.fill
.get "fr81"
.<< Contents >>
.COUNT PAGE
.secname←ssname←null;
.PORTION CONTENTS
.begin "contents"
. FILL NOJUST CRBREAK TURN ON "%∂←→"
. turn on "∪" for "#";
.
. AT "∩∩" LMIN ":" ⊂ IF LINES<LMIN THEN BEGIN
. skip 200; SELECT 3
∂5Section→Page
. SKIP;
. END
. ⊃;
.cb Table of Contents
. INDENT 0,10,3; PREFACE 0; SELECT 3
∂5Section→Page
. SELECT 1;
. RECEIVE
.end "contents";
.BEGIN "Title"
.pagehigh←54
.pagewide←80
.PAGE FRAME pagehigh HIGH pagewide WIDE;
.evenleftborder ← oddleftborder ← 1000;
.area title lines 16 to pagehigh;
.place title;
.page←0;
.SECNAME←"";
.sname ← SSNAME ← NULL
.PORTION TITLEPAGE
.center
.SKIP 2
Proposed
.SKIP 2
.Select 3
Basic Research
.SKIP 2
.Select 1
in
.SKIP 2
.Select 3
Artifical Intelligence
.SKIP 2
.Select 1
and
.SKIP 2
.Select 3
Formal Reasoning
.Select 1
.SKIP 4
Principal Investigator
.skip
John McCarthy
.skip 2
.TURN OFF
.END "Title"
.